home *** CD-ROM | disk | FTP | other *** search
/ HamCall (April 1991) / HAMCALL CD-ROM (Buckmaster)(April 1991).BIN / telcom / qmodem / qwiknet.scr < prev    next >
Text File  |  1989-02-20  |  5KB  |  174 lines
  1. ;
  2. ;  QuickLearn Script generated at 02:25:48 on 08-30-88
  3. ;  May require editing before use.
  4. ;
  5. ;  -----------------------------------------------------------------
  6. ;
  7. TurnOn   8_BIT         ; defaults from QuickLearn...
  8. TurnOff  LINEFEED
  9. TurnOff  XON/XOFF
  10. TurnOff  NOISE
  11. TurnOff  MUSIC
  12. TurnOn   SCROLL
  13. TurnOff  PRINT
  14. TurnOff  ECHO
  15. ;                                                                     ;
  16. ; ---------------------------  DEFINITIONS  ------------------------- ;
  17. ;                                                                     ;
  18. String   QWKFILE REPFILE QWKPATH REPPATH FONTXT 
  19. String   NAME    XFER    UDONE   DDONE   DOOR 
  20.  
  21. Assign   QWKFILE   EXECNET.QWK           ; Name of QWK file
  22. Assign   REPFILE   EXECNET.REP           ; Name of REP file
  23. Assign   QWKPATH   Z:\QMAIL\             ; DRIVE:\PATH of QWK file
  24. Assign   REPPATH   Z:\QMAIL\             ; DRIVE:\PATH of REP file
  25. Assign   FONTXT    Exec-Mail-Stop        ; Unique text in FON file
  26. Assign   NAME      "John Friel Password" ; Your Name and Password on BBS
  27. Assign   DOOR      7                     ; QMail Door # on BBS
  28. Assign   XFER      F                     ; Protocol to transfer with
  29. Assign   UDONE     N                     ; Upload done?
  30. Assign   DDONE     N                     ; Download done?
  31.  
  32. ; -------------------------  END DEFINITIONS  -----------------------
  33.  
  34. Restart:          ; Go here if the connection gets broken...
  35.  
  36.                   ; The DIAL command uses the ability to call a specific
  37.                   ; number, without knowing the exact position in the
  38.                   ; .FON file.  In my FON book, ExecNet has the unique text
  39.                   ; string stored in $FONTXT.  So, by using the new Tag Text
  40.                   ; and specifying this, it will dial this number even
  41.                   ; if the FON book is sorted.  Note the 'T' prefix...
  42.  
  43. If $ONLINE SkipD  ; Skip the dial if already online
  44. Dial "T$FONTXT"   ;
  45.                   ; Note: This Script does NOT have to be linked to the
  46.                   ; entry in the FON book, but it makes it easier to
  47.                   ; edit if it is.  Just press 'V' when the scrollbar is
  48.                   ; on the RFM QwikNet entry!
  49. SkipD:
  50. TimeOut  300  QQ  ; Set Waitfor timeout to 300 seconds. {5 minutes}
  51. Goto     TOP      ; Jump to the start of the main body.
  52.  
  53.  
  54. QQ:                             ; Something timed out
  55. If $OffLine Restart             ; are we offline?  If so, restart script
  56. Send "^M"                       
  57. If "$DDONE" = "N"  DownSection  ; Go do Download again
  58. If "$UDONE" = "N"  UpSection    ; Go do Upload again
  59.  
  60. ; If we get here, then both the upload and download were completed, but
  61. ; we didn't get offline correctly, so lets go do the endgame and quit
  62.  
  63. Goto EndGame
  64.  
  65. ;----;
  66.  TOP:    ; Main Body of the NetMail Script
  67. ;----;     
  68.  
  69.          ; Set up all Question/Answer responses that might
  70.          ; be generated by the QwikNet hub.
  71. ;-----------------------------------------------------------;
  72. ;            ---- PROMPT ----               -- REPLY --     ;
  73. ;-----------------------------------------------------------;
  74. When
  75. When     "Press (Enter) to continue?"       "^M"
  76. When     "graphics (Enter)=no?"             "N Q^M"
  77. When     "What is your first name?"         "$NAME^M"
  78. When     "Since 'Last Read' (Enter)=yes?"   "N^M"
  79. When     "Conference members (Enter)=no?"   "N^M"
  80. When     "More (Y), (N), (NS)"              "N^M"
  81. When     "Enter Language #"                 "^M"
  82. When     "(H)elp, More?"                    "N^M"
  83. When     "NO CARRIER"                       Restart  ;(a Goto Label)
  84.  
  85. Waitfor  "Command?"
  86. Delay    100
  87. Send     "OPEN $DOOR^M"
  88.  
  89. Waitfor  "Command?"
  90. Delay    100
  91.  
  92. ;------------;
  93.  DownSection:
  94. ;------------;
  95. Send     "D^M"
  96.  
  97. When
  98. When     "NO CARRIER"            Restart
  99. When     "nothing was found"     DoRepsNow
  100.  
  101. Waitfor  "receive this packet (Y or N)?"
  102. Delay    100
  103. Send     "Y^M"
  104.  
  105. Waitfor  "transfer of $QWKFILE now."
  106. Delay    100
  107. Send     "^M"
  108.  
  109. Download $XFER $QWKPATH$QWKFILE
  110. If       $SUCCESS  SuccessDown
  111. Goto     ReDownload
  112.  
  113. ;------------;
  114.  SuccessDown:
  115. ;------------;
  116. Assign   DDONE Y         ; Download was successful
  117. Goto     DoRepsNow
  118.  
  119. ;----------;
  120.  UpSection:
  121. ;----------;
  122. Send     "^M"
  123. Waitfor  "Command?"
  124. Delay    100
  125.  
  126. ;----------;
  127.  DoRepsNow:
  128. ;----------;
  129. When
  130. When     "NO CARRIER"   Restart
  131. Exist    $REPPATH$REPFILE  SendEm
  132. Goto     AllDone
  133.  
  134.              
  135. ;-------;
  136.  SendEm:               ; there are replies to send!
  137. ;-------;
  138. Delay    1000
  139. Send     "^M"
  140.  
  141. Waitfor  "Command?"
  142. Send     "U^M"
  143. Delay    100
  144.  
  145. Waitfor  "Ready to receive $REPFILE"
  146. Pause    1000
  147.  
  148. Upload   $XFER $REPPATH$REPFILE
  149. If       $FAIL  UpSection
  150.  
  151. Assign   UDONE Y                  ; Upload of REP is OK
  152.  
  153.  
  154. Dos      "Del $REPPATH$REPFILE"   ; now, delete the REP file...
  155.  
  156. ;--------;
  157.  AllDone:
  158. ;--------;
  159. Waitfor  "Command?"
  160. Pause    1000
  161.  
  162. Send     "G^M"
  163. Pause    2000
  164.  
  165. ;--------;
  166.  EndGame:
  167. ;--------;
  168. Hangup                   ; Hangup the modem
  169. Delay    1000
  170. Send     "ATM0H1^M"      ; Place the modem "off-hook"
  171.  
  172. System   Y               ; Exit back to the Batch file to insert new msgs.
  173. Exit                     ; End of Script
  174.